﻿'© 2004 - 2008 ActiveModules, Inc. All Rights Reserved
Imports Active.Modules.License
Imports System.Web.HttpContext
Namespace DotNetNuke.Modules.ActiveForums
    Public Class TopicBase
        Inherits SettingsBase
#Region "Private Members"
        Private _TopicId As Integer = -1
#End Region
#Region "Public Properties"
        Public Property TopicId() As Integer
            Get
                If _TopicId = -1 Then
                    If Not Request.Params(ParamKeys.TopicId) Is Nothing Then
                        If IsNumeric(Request.Params(ParamKeys.TopicId)) Then
                            _TopicId = CInt(Request.Params(ParamKeys.TopicId))
                            Return _TopicId
                        Else
                            Return _TopicId
                        End If
                    Else
                        Return _TopicId
                    End If
                Else
                    Return _TopicId
                End If

            End Get
            Set(ByVal value As Integer)
                _TopicId = value
            End Set
        End Property
#End Region

    End Class
End Namespace
